********************************************************************************
********"Macroprudential Regulation, Quantitative Easing, and Bank Lending"*****
********************************************************************************

********************************************************************************
********************************************************************************
**********************************2019******************************************
********************************************************************************
********************************************************************************
clear *
**#Bookmark (input)
use $inputdirectory/INB_CGP322019
merge m:1 bankid using $inputdirectory/INB_preann2019m8, keepus(e14)

gen itime=string(time,"%tm")
labmask time, values(itime)

**#Bookmark (output)
graph hbox cgasover if time>=tm(2019m9)&time<=tm(2019m12)&e14>0, over(time, gap(*2)) box(1,color(grey) lcolor(grey) lwidth(0.1)) medtype(marker) medmarker(symbol(dot) msize(small) mcolor(black)) nooutside ytitle("Capital gains, % of assets", height(5)) title("") note("") graphregion(color(white) margin(zero)) saving($outputdirectory/FIG6A, replace)


********************************************************************************
********************************************************************************
**********************************2015******************************************
********************************************************************************
********************************************************************************
clear *
**#Bookmark (input)
use $inputdirectory/INB_CGP32015
merge m:1 bankid using $inputdirectory/INB_preann2014m12, keepus(e13)

gen itime=string(time,"%tm")
labmask time, values(itime)

**#Bookmark (output)
graph hbox cgasover if time>=tm(2015m1)&time<=tm(2015m4)&e13>0, over(time, gap(*2)) box(1,color(grey) lcolor(grey) lwidth(0.1)) medtype(marker) medmarker(symbol(dot) msize(small) mcolor(black)) nooutside ytitle("Capital gains, % of assets", height(5)) title("") note("") graphregion(color(white) margin(zero)) saving($outputdirectory/FIG6B, replace)
